home *** CD-ROM | disk | FTP | other *** search
/ Photo Clip Art 2 / Photo Clip Art - Volume 2.iso / SOFTWARE / PHOTODRW / 2.CAB / PhotoDrw / PHOTODRW.CHM / html / showme_code.vbs < prev    next >
Text File  |  1998-10-30  |  3KB  |  74 lines
  1. Dim sErrorMsg(10)
  2. Dim msouierrSuccess
  3. Dim msouierrFail
  4. Dim msouierrNotValidId
  5. Dim msouierrNoDialog
  6. Dim msouierrWrongDialog
  7. Dim msouierrAdminDisabled
  8. Dim msouierrDisabled
  9. Dim msouierrfoo
  10. Dim msouierrbar
  11. Dim L_SECURITY_MSG
  12. Dim L_TITLE
  13.  
  14. '------------------------
  15. ' Detect if IE is >=4.0 -
  16. '------------------------
  17. Function DetectBrowserVersion()
  18.    Dim iVersion
  19.    iVersion=navigator.appversion
  20.    If Left(iVersion,1)>=4 Then
  21.        DetectBrowserVersion="4.0>"
  22.    Else
  23.        DetectBrowserVersion="3.0x"
  24.    End if
  25. End Function
  26.  
  27. '----------------------------------------
  28. ' Display the appropriate error message -
  29. '----------------------------------------
  30.  
  31. Sub DisplayError (retVal)
  32.     Msgbox sErrorMsg(retVal),48,"Office 2000 Help"
  33. End Sub
  34.  
  35. Sub InitConstants()
  36.    msouierrSuccess=0
  37.    msouierrFail=1
  38.    msouierrNotValidId=2
  39.    msouierrNoDialog=3
  40.    msouierrWrongDialog=4
  41.    msouierrAdminDisabled=5
  42.    msouierrDisabled=6
  43.    msouierrOn=7
  44.    msouierrOff=8
  45.    msouierrUnknown=9
  46.    msouierrAppModal=10
  47.  
  48.    L_SECURITY_MSG="help can't show you this procedure because the security setting in your browser is set too high" & chr(13) &"or the ActiveX control Ouactrl.ocx didn't install correctly." & chr(13) & Chr(13) & "- Select a lower security setting in your browser" & chr(13) & "- If you receive this message after selecting a lower security setting, please see your system" & chr(13) &"  administrator for help troubleshooting the installation of the ActiveX control Ouactrl.ocx" & chr(13) &"  located in the folder you installed Microsoft Office to."
  49.  
  50.    L_TITLE="Microsoft Office Help"
  51. End Sub
  52.  
  53. Sub InitErrorMsgs()
  54.    sErrorMsg(msouierrFail)="This task cannot be automatically completed." & Chr(13) & "Please complete the steps manually."
  55.    sErrorMsg(msouierrNotValidId)="The command or option ID is not valid."
  56.    sErrorMsg(msouierrNoDialog)="The dialog box was not displayed."
  57.    sErrorMsg(msouierrWrongDialog)="The option does not exist in the specified dialog box."
  58.    sErrorMsg(msouierrAdminDisabled)="The command you are trying to use has been disabled by your administrator."
  59.    sErrorMsg(msouierrDisabled)="This task cannot be automatically completed." & Chr(13) & "Please complete the steps manually."
  60.    sErrorMsg(msouierrAppModal)="A dialog box is already displayed."
  61. End Sub
  62.  
  63. '---------------------------------------------
  64. ' Mouse over, mouse out, rollover procedures -
  65. '---------------------------------------------
  66. Sub ColorSteps(sColor)
  67.     If sColor="LightBlue" Then
  68.         steps.className = "Highlight"
  69.     Else
  70.         steps.className = "Normal"
  71.     End If
  72. End Sub
  73.  
  74.